home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.004 / xemacs-1 / xemacs-19.13 / dynodump / i386 / _relocate.c next >
Encoding:
C/C++ Source or Header  |  1995-07-08  |  3.8 KB  |  119 lines
  1. /*
  2.  *    Copyright (c) 1995 by Sun Microsystems, Inc.
  3.  *    All rights reserved.
  4.  *
  5.  * This source code is a product of Sun Microsystems, Inc. and is provided
  6.  * for unrestricted use provided that this legend is included on all tape
  7.  * media and as a part of the software program in whole or part.  Users
  8.  * may copy or modify this source code without charge, but are not authorized
  9.  * to license or distribute it to anyone else except as part of a product or
  10.  * program developed by the user.
  11.  *
  12.  * THIS PROGRAM CONTAINS SOURCE CODE COPYRIGHTED BY SUN MICROSYSTEMS, INC.
  13.  * SUN MICROSYSTEMS, INC., MAKES NO REPRESENTATIONS ABOUT THE SUITABLITY
  14.  * OF SUCH SOURCE CODE FOR ANY PURPOSE.  IT IS PROVIDED "AS IS" WITHOUT
  15.  * EXPRESS OR IMPLIED WARRANTY OF ANY KIND.  SUN MICROSYSTEMS, INC. DISCLAIMS
  16.  * ALL WARRANTIES WITH REGARD TO SUCH SOURCE CODE, INCLUDING ALL IMPLIED
  17.  * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  IN
  18.  * NO EVENT SHALL SUN MICROSYSTEMS, INC. BE LIABLE FOR ANY SPECIAL, INDIRECT,
  19.  * INCIDENTAL, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING
  20.  * FROM USE OF SUCH SOURCE CODE, REGARDLESS OF THE THEORY OF LIABILITY.
  21.  * 
  22.  * This source code is provided with no support and without any obligation on
  23.  * the part of Sun Microsystems, Inc. to assist in its use, correction, 
  24.  * modification or enhancement.
  25.  *
  26.  * SUN MICROSYSTEMS, INC. SHALL HAVE NO LIABILITY WITH RESPECT TO THE
  27.  * INFRINGEMENT OF COPYRIGHTS, TRADE SECRETS OR ANY PATENTS BY THIS
  28.  * SOURCE CODE OR ANY PART THEREOF.
  29.  *
  30.  * Sun Microsystems, Inc.
  31.  * 2550 Garcia Avenue
  32.  * Mountain View, California 94043
  33.  */
  34.  
  35. #pragma ident    "@(#) $Id: _relocate.c,v 1.4 1995/06/26 20:12:41 georgn Exp $ - SMI"
  36.  
  37. /* LINTLIBRARY */
  38.  
  39. #include    <libelf.h>
  40. #include    <string.h>
  41. #include    <machdep.h>
  42. #include    "_dynodump.h"
  43.  
  44. void
  45. update_reloc(Cache *ocache, Cache *_ocache,
  46.          Cache *icache, Cache *_icache,
  47.          Half shnum)
  48. {
  49.     Shdr *shdr;
  50.     Rel *rels;
  51.     int reln, cnt;
  52.     Cache *orcache, *ircache;
  53.  
  54.     /*
  55.      * Set up to readh the output relocation table.
  56.      */
  57.     shdr = _ocache->c_shdr;
  58.     rels = (Rel *) _ocache->c_data->d_buf;
  59.     reln = shdr->sh_size / shdr->sh_entsize;
  60.  
  61.     /*
  62.      * Determine the section that is being relocated.
  63.      */
  64.     orcache = &ocache[shdr->sh_info];
  65.     shdr = _icache->c_shdr;
  66.     ircache = &icache[shdr->sh_info];
  67.  
  68.     /*
  69.      * Determine the section that is being relocated.  Note that for this
  70.      * stupid architecture the .rel.plt actually contains offsets into the
  71.      * .got.
  72.      */
  73.     if (strcmp(_ocache->c_name, ".rel.plt")) {
  74.     orcache = &ocache[shdr->sh_info];
  75.     shdr = _icache->c_shdr;
  76.     ircache = &icache[shdr->sh_info];
  77.     } else {
  78.     Half    ndx;
  79.     Cache *    __ocache = ocache;
  80.  
  81.     for (__ocache++, ndx = 1; ndx != shnum; ndx++, __ocache++) {
  82.         if (strcmp(__ocache->c_name, ".got") == 0) {
  83.         orcache = __ocache;
  84.         ircache = &icache[ndx];
  85.         break;
  86.         }
  87.     }
  88.     }
  89.  
  90.     /*
  91.      * Loop through the relocation table.
  92.      */
  93.     for (cnt = 0; cnt < reln; cnt++, rels++) {
  94.     unsigned char *iaddr, *oaddr;
  95.     Addr off;
  96.     unsigned char type = ELF_R_TYPE(rels->r_info);
  97.  
  98.     /*
  99.      * Ignore some relocations as these can be safely carried out
  100.      * twice (they simply override any existing data).  In fact,
  101.      * some relocations like __iob's copy relocation must be carried
  102.      * out each time the process restarts, otherwise stdio blows up.
  103.      */
  104.     if ((type == R_386_COPY) || (type == R_386_NONE))
  105.         continue;
  106.  
  107.     /*
  108.      * If we are required to restore the relocation location
  109.      * to its value prior to relocation, then read the
  110.      * location's original contents from the input image and
  111.      * copy it to the output image.
  112.      */
  113.     off = rels->r_offset - ircache->c_shdr->sh_addr;
  114.     iaddr = (unsigned char *) ircache->c_data->d_buf + off;
  115.     oaddr = (unsigned char *) orcache->c_data->d_buf + off;
  116.     *(unsigned long *) oaddr = *(unsigned long *) iaddr;
  117.     }
  118. }
  119.